-- card: 57105 from stack: in
-- bmap block id: 57465
-- flags: 4000
-- background id: 20347
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=92 top=191 right=209 bottom=170
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  lock screen
  put card field "Suspended From" into suspFrom
  put card field "Suspended To" into suspTo
  go to previous card
  put "Suspended From " & suspFrom & " To " & suspTo into card field "Action"
  unlock screen
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=216 top=191 right=209 bottom=294
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  lock screen
  go to previous card
  put empty into card field "Action"
  unlock screen
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=336 top=191 right=209 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear
----- HyperTalk script -----
on mouseUp
  put empty into card field "Suspended From"
  put empty into card field "Suspended To"
end mouseUp



-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=134 top=158 right=175 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Suspended From


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=302 top=158 right=175 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Suspended To


-- part contents for background part 13
----- text -----
Richter, Robert Charlie

-- part contents for background part 14
----- text -----
12

-- part contents for background part 15
----- text -----
102

-- part contents for card part 4
----- text -----
 Aug 3, 89

-- part contents for card part 5
----- text -----
 Oct 3, 89